home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: Games / PC-SIG Games (PC-SIG).iso / 55 / BIO.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  4.3 KB  |  169 lines
  1. 1  M=VAL(LEFT$(DATE$,2))
  2. 2  D=VAL(MID$(DATE$,4,2))
  3. 3  Y=VAL(RIGHT$(DATE$,4))
  4. 5  WIDTH "LPT1:",255
  5. 10  CLS:DIM A(150)
  6. 11  INPUT "WHAT IS YOUR NAME ";NAM$
  7. 20  PRINT CHR$(23):PRINT TAB(12)"BIORYTHM FOR ";NAM$:PRINT STRING$(42,"+"):PRINT
  8. 25  LPRINT CHR$(23):LPRINT TAB(12)"BIORYTHM FOR ";NAM$:LPRINT STRING$(42,"+"):LPRINT
  9. 30  FOR I=1 TO 12:READ A(I):NEXT I
  10. 40  FOR I=101 TO 112:READ A(I):NEXT  I
  11. 50  DATA 0,31,59,90,120,151,181,212,243,273,304,334
  12. 60  DATA 31,28,31,30,31,30,31,31,30,31,30,31
  13. 70  A(55)=6.28318
  14. 80  GOTO 150
  15. 90  X=(V/X-INT(V/X))*A(55)
  16. 100  Y=SIN(X)
  17. 110  X=X*57.2958
  18. 120  Y=(Y*18)+44
  19. 130  Y=INT(Y)
  20. 140  RETURN
  21. 150  A=VAL(LEFT$(DATE$,2))
  22. 151  B=VAL(MID$(DATE$,4,2))
  23. 160  C=VAL(RIGHT$(DATE$,4))
  24. 170  GOSUB 260
  25. 180  Z=T
  26. 190  INPUT  "enter birthdate - example: 9,4,1947 ";M,D,Y
  27. 200  E=M:F=D:G=Y
  28. 210  GOSUB 260
  29. 220  V=T-Z
  30. 230  V=ABS(V)
  31. 240  REM
  32. 250  GOTO 440
  33. 260  H=Y-1800
  34. 270  I=INT(H/4)
  35. 280  J=INT(I/25)
  36. 290  L=INT((H+200)/400)
  37. 300  K=0
  38. 310  IF I*4<>H GOTO 350
  39. 320  IF J*100<>H GOTO 350
  40. 330  IF L*400-200<>H GOTO 350
  41. 340  K=1
  42. 350  T=365*H+I-J+L-K
  43. 360  T=T+A(M)+D-1
  44. 370  IF M<3 GOTO 390
  45. 380  T=T+K
  46. 390  IF INT(H/4)<>H/4 GOTO 420
  47. 400  IF M>2 GOTO 420
  48. 410  T=T-1
  49. 420  N=T-7*INT(T/7)
  50. 430  RETURN
  51. 440  PRINT :PRINT
  52. 450  INPUT "how many days on graph ";O
  53. 460  CLS
  54. 470  GOTO 1460
  55. 480  PRINT "The potential for accidents to occur is greatest when"
  56. 485  LPRINT "The potential for accidents to occur is greatest when"
  57. 490  PRINT "one or more of your cycles crosses the center line."
  58. 495  LPRINT "one or more of your cycles crosses the center line."
  59. 500  PRINT "Graph symbols:"
  60. 505  LPRINT "Graph symbols:"
  61. 510  PRINT "              X - Center line"
  62. 515  LPRINT "              X - Center line"
  63. 520  PRINT "              P - Physical cycle"
  64. 525  LPRINT "              P - Physical cycle"
  65. 530  PRINT "              S - Sensitivity cycle (28 days)"
  66. 535  LPRINT "              S - Sensitivity cycle (28 days)"
  67. 540  PRINT "              C - Cognitive cycle (33 days)"
  68. 545  LPRINT "              C - Cognitive cycle (33 days)"
  69. 550  PRINT
  70. 560  CLS
  71. 570  LPRINT "Your birthday is ";:P=E:GOSUB 1070:LPRINT F;G
  72. 580  LPRINT "You were born on a ";:Q=N+1:GOSUB 1190
  73. 590  LPRINT ", ";V;" days (";INT((V/365)*100)/100;"years) ago."
  74. 600  LPRINT
  75. 610  LPRINT  "Here are your biorythm cycles"
  76. 620  LPRINT  "starting at ";:P=A:GOSUB 1070: LPRINT B;C
  77. 630  LPRINT  "and ending at ";
  78. 640  S=A:R=B+O-1:T=C
  79. 650  IF S<12 GOTO 670
  80. 660  S=1:T=T+1:GOTO 700
  81. 670  IF S<>2 GOTO 700
  82. 680  IF INT(T/4)<>T/4 THEN 700
  83. 690  K=1
  84. 700  IF R<=A(S+100)+K GOTO  730
  85. 710  R=R-(A(S+100)+K):IF S<>1 THEN S=S+1:K=0
  86. 720  GOTO 650
  87. 730  P=S:GOSUB 1070:LPRINT R;T
  88. 740  CLS
  89. 750  LPRINT TAB(7);"DATE";TAB(25)"(-)";TAB(43)"(X)";TAB(61)"(+)"
  90. 760  LPRINT
  91. 770  U=V+N:U=U-7*INT(U/7):B=B-1:U=U-1:V=V-1:K=0
  92. 780  FOR I=1 TO O:V=V+1:B=B+1:U=U+1:IF A<>2 THEN 810
  93. 790  IF INT(C/4)<>C/4 THEN 810
  94. 800  K=1
  95. 810  IF B<=A(A+100)+K THEN 830
  96. 820  A=A+1:B=1
  97. 830  IF U<7 THEN 850
  98. 840  U=0
  99. 850  IF A<=12 THEN 870
  100. 860  A=1:C=C+1
  101. 870  IF(A<>E)+(B<>F) THEN 890
  102. 880  LPRINT TAB(33);"happy ";ABS(C-G);" birthday"
  103. 890  W=U+1:GOSUB 1380
  104. 900  LPRINT "  ";:A(25)=A:GOSUB 1260:LPRINT B;C;
  105. 910  IF L$="P" OR  L$="A" THEN GOTO 920 ELSE GOTO 930
  106. 920  X=23 :GOSUB 90:A(30)=Y
  107. 930  IF L$="S" OR  L$="A"  GOTO 940 ELSE GOTO 950
  108. 940  X=28: GOSUB 90:A(35)=Y
  109. 950  IF L$="C" OR  L$="A" GOTO 960 ELSE GOTO 970
  110. 960  X=33:GOSUB 90:A(40)=Y
  111. 970  M=0:FOR L=19 TO 66 :LPRINT TAB(L);
  112. 980  IF A(30)=L THEN LPRINT "P";:GOTO 1030
  113. 990   IF A(35)=L THEN LPRINT "S";:GOTO 1030
  114. 1000   IF A(40)=L THEN LPRINT "C";:GOTO 1030
  115. 1010  IF 44=L THEN LPRINT "X";
  116. 1020  IF 66=L THEN LPRINT
  117. 1030  M=M+1:IF M<>4 THEN 1040:L=100
  118. 1040  NEXT L
  119. 1050  NEXT I
  120. 1060  END
  121. 1070  IF P=1 THEN LPRINT "JANUARY";:RETURN
  122. 1080   IF P=2 THEN LPRINT "FEBRUARY";:RETURN
  123. 1090   IF P=3 THEN LPRINT "MARCH";:RETURN
  124. 1100   IF P=4 THEN LPRINT "APRIL";:RETURN
  125. 1110   IF P=5 THEN LPRINT "MAY";:RETURN
  126. 1120   IF P=6 THEN LPRINT "JUNE";:RETURN
  127. 1130   IF P=7 THEN LPRINT "JUly";:RETURN
  128. 1140   IF P=8 THEN LPRINT "AUGUST";:RETURN
  129. 1150   IF P=9 THEN LPRINT "SEPTEMBER";:RETURN
  130. 1160   IF P=10 THEN LPRINT "OCTOBER";:RETURN
  131. 1170   IF P=11 THEN LPRINT "NOVEMBER";:RETURN
  132. 1180   IF P=12 THEN LPRINT "DECEMBER";:RETURN
  133. 1190   IF Q=1 THEN LPRINT "WEDNESDAY";:RETURN
  134. 1200   IF Q=2 THEN LPRINT "THURSDAY";:RETURN
  135. 1210   IF Q=3 THEN LPRINT "FRIDAY";:RETURN
  136. 1220   IF Q=4 THEN LPRINT "SATURDAY";:RETURN
  137. 1230   IF Q=5 THEN LPRINT "SUNDAY";:RETURN
  138. 1240   IF Q=6 THEN LPRINT "MONDAY";:RETURN
  139. 1250    LPRINT "TUESDAY";:RETURN
  140. 1260   IF A(25)=1 THEN LPRINT "JAN";:RETURN
  141. 1270   IF A(25)=2 THEN LPRINT "FEB";:RETURN
  142. 1280   IF A(25)=3 THEN LPRINT "MAR";:RETURN
  143. 1290  IF A(25)=4 THEN LPRINT "APR";:RETURN
  144. 1300   IF A(25)=5 THEN LPRINT "MAY";:RETURN
  145. 1310   IF A(25)=6 THEN LPRINT "JUN";:RETURN
  146. 1320   IF A(25)=7 THEN LPRINT "JUL";:RETURN
  147. 1330   IF A(25)=8 THEN LPRINT "AUG";:RETURN
  148. 1340   IF A(25)=9 THEN LPRINT "SEP";:RETURN
  149. 1350   IF A(25)=10 THEN LPRINT "OCT";:RETURN
  150. 1360   IF A(25)=11 THEN LPRINT "NOV";:RETURN
  151. 1370    LPRINT "DEC";:RETURN
  152. 1380  IF W=1 THEN LPRINT "WED";:RETURN
  153. 1390   IF W=2 THEN LPRINT "THU";:RETURN
  154. 1400   IF W=3 THEN LPRINT "FRI";:RETURN
  155. 1410   IF W=4 THEN LPRINT "SAT";:RETURN
  156. 1420   IF W=5 THEN LPRINT "SUN";:RETURN
  157. 1430   IF W=6 THEN LPRINT "MON";:RETURN
  158. 1440     LPRINT "TUE";:RETURN
  159. 1450  END
  160. 1460  PRINT "ENTER YOUR GRAPH CHOICE:"
  161. 1470  PRINT "                        P - PHYSICAL CYCLE ONLY"
  162. 1480  PRINT "                        C - COGNITAVE CYCLE ONLY"
  163. 1490  PRINT "                        S - SENSITIVITY CYCLE ONLY"
  164. 1500  PRINT "                        A - ALL CYCLES"
  165. 1510  PRINT
  166. 1520  INPUT "ENTER YOUR CHOICE (P,C,S, OR A) ";L$
  167. 1530  IF L$<>"P" AND  L$<>"S" AND  L$<>"C" AND  L$<>"A" GOTO 1520
  168. 1540  CLS:GOTO 480
  169.